File indexing completed on 2018-03-02 18:36:07 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
924557e60a Chri*0001 #include "CPP_EEOPTIONS.h"
0002
18e2723366 Alis*0003 SUBROUTINE EEDATA_EXAMPLE
d39a6fe882 Jean*0004
0005
924557e60a Chri*0006
d39a6fe882 Jean*0007
0008
0009
0010
0011
18e2723366 Alis*0012 IMPLICIT NONE
924557e60a Chri*0013 #include "SIZE.h"
0014 #include "EEPARAMS.h"
0015
0016
0017 CHARACTER*(MAX_LEN_MBUF) msgBuf
d39a6fe882 Jean*0018
924557e60a Chri*0019 WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.'
d39a6fe882 Jean*0020 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0021 WRITE(msgBuf,'(2A)') '// To use this example copy and paste',
0022 & ' the ">" lines.'
0023 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0024 WRITE(msgBuf,'(2A)') '// Then remove the text up to',
0025 & ' and including the ">".'
0026 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
924557e60a Chri*0027 WRITE(msgBuf,'(A)') '># Example "eedata" file'
d39a6fe882 Jean*0028 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
924557e60a Chri*0029 WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments'
d39a6fe882 Jean*0030 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
924557e60a Chri*0031 WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X'
d39a6fe882 Jean*0032 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
924557e60a Chri*0033 WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y'
d39a6fe882 Jean*0034 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0035 WRITE(msgBuf,'(A)') '>&EEPARMS '
0036 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0037 WRITE(msgBuf,'(A)') '> nTx=1, '
0038 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0039 WRITE(msgBuf,'(A)') '> nTy=1, '
0040 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0041 WRITE(msgBuf,'(A)') '>& '
0042 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0043 WRITE(msgBuf,'(2A)') '># Note: Some systems use & as the ',
0044 & 'namelist terminator (as shown here).'
0045 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0046 WRITE(msgBuf,'(A)') '># Other systems use a / character.'
0047 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
924557e60a Chri*0048 WRITE(msgBuf,'(A)') ' '
d39a6fe882 Jean*0049 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
0050
924557e60a Chri*0051 RETURN
0052 END