Changeset 1482 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Oct 18, 2014 12:34:45 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r1469 r1482 20 20 ! Current revisions: 21 21 ! ----------------- 22 ! 22 ! information about calculated or predefined virtual processor topology adjusted 23 23 ! 24 24 ! Former revisions: … … 341 341 ENDIF 342 342 #if defined( __parallel ) 343 IF ( npex == -1 .AND. pdims(2) /=1 ) THEN343 IF ( npex == -1 .AND. npey == -1 ) THEN 344 344 char1 = 'calculated' 345 ELSEIF ( ( host(1:3) == 'ibm' .OR. host(1:3) == 'nec' .OR. &346 host(1:2) == 'lc' ) .AND. &347 npex == -1 .AND. pdims(2) == 1 ) THEN348 char1 = 'forced'349 345 ELSE 350 346 char1 = 'predefined'
Note: See TracChangeset
for help on using the changeset viewer.