Changeset 82 for palm/trunk/SOURCE/header.f90
- Timestamp:
- Apr 16, 2007 3:40:52 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/header.f90
r77 r82 4 4 ! Actual revisions: 5 5 ! ----------------- 6 ! 6 ! Preprocessor strings for different linux clusters changed to "lc", 7 ! routine local_flush is used for buffer flushing 7 8 ! 8 9 ! Former revisions: … … 1109 1110 WRITE ( io, 99 ) 1110 1111 1111 #if defined( __ibm )1112 1112 ! 1113 1113 !-- Write buffer contents to disc immediately 1114 CALL FLUSH_( io ) 1115 #elif defined( __lcmuk ) || defined( __nec ) 1116 CALL FLUSH( io ) 1117 #endif 1114 CALL local_flush( io ) 1118 1115 1119 1116 !
Note: See TracChangeset
for help on using the changeset viewer.