Changeset 82 for palm/trunk/SOURCE/check_open.f90
- Timestamp:
- Apr 16, 2007 3:40:52 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/check_open.f90
r77 r82 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Call of local_getenv removed, preprocessor directives for old systems removed 7 7 ! 8 8 ! Former revisions: … … 42 42 43 43 CHARACTER (LEN=2) :: suffix 44 CHARACTER (LEN=20) :: return_addres, return_usern,xtext = 'time in s'44 CHARACTER (LEN=20) :: xtext = 'time in s' 45 45 CHARACTER (LEN=30) :: filename 46 46 CHARACTER (LEN=40) :: avs_coor_file, avs_coor_file_localname, & … … 151 151 STATUS='OLD' ) 152 152 ELSE 153 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej5 )154 !155 !-- Declare a cache layer for faster I/O156 CALL ASNUNIT ( 13, '-F cachea:512:1:1', ierr1 )157 #endif158 153 OPEN ( 13, FILE='BININ/'//myid_char, FORM='UNFORMATTED', & 159 154 STATUS='OLD' ) … … 174 169 !-- directory created by PE0 can open their file 175 170 CALL MPI_BARRIER( comm2d, ierr ) 176 #endif177 #if defined( __t3eh ) || defined( __t3eb ) || defined( __t3ej5 )178 !179 !-- Declare a cache layer for faster I/O180 CALL ASNUNIT ( 14, '-F cachea:512:1:1', ierr1 )181 171 #endif 182 172 OPEN ( 14, FILE='BINOUT/'//myid_char_14, FORM='UNFORMATTED', & … … 342 332 CASE ( 30 ) 343 333 344 345 #if defined( __t3eb ) || defined( __t3eh ) || defined( __t3ej5 )346 !347 !-- In case of active data compression 32Bit integer output348 IF ( do3d_compress ) THEN349 CALL ASNUNIT( 30, '-F f77 -N ieee_32', ierr1 )350 ENDIF351 #endif352 353 334 OPEN ( 30, FILE='PLOT3D_DATA'//myid_char, FORM='UNFORMATTED' ) 354 335 ! … … 369 350 !-- Therefore path information has to be obtained first. 370 351 IF ( avs_output ) THEN 371 CALL local_getenv( 'return_addres', 13, return_addres, iaddres )372 CALL local_getenv( 'return_username', 15, return_usern, iusern)352 iaddres = LEN_TRIM( return_addres ) 353 iusern = LEN_TRIM( return_username ) 373 354 374 355 OPEN ( 3, FILE='OUTPUT_FILE_CONNECTIONS', FORM='FORMATTED' ) … … 433 414 !-- really transferred. 434 415 command = TRIM( batch_scp ) // ' -n -u ' // & 435 return_usern (1:iusern) // ' ' // &416 return_username(1:iusern) // ' ' // & 436 417 return_addres(1:iaddres) // ' /etc/passwd "' // & 437 418 TRIM( avs_coor_file_catalog ) // '" ' // & … … 445 426 !-- Determine the data file name 446 427 command = TRIM( batch_scp ) // ' -n -u ' // & 447 return_usern (1:iusern) // ' ' // &428 return_username(1:iusern) // ' ' // & 448 429 return_addres(1:iaddres) // ' /etc/passwd "' // & 449 430 TRIM( avs_data_file_catalog ) // '" ' // &
Note: See TracChangeset
for help on using the changeset viewer.