eesupp/src/eedata_example.F

924557e60a Chri*0001 #include "CPP_EEOPTIONS.h"
                0002
18e2723366 Alis*0003       SUBROUTINE EEDATA_EXAMPLE
d39a6fe882 Jean*0004 C     *==========================================================*
                0005 C     | S/R EEDATA\_EXAMPLE                                      |
924557e60a Chri*0006 C     | o Write example eedata file                              |
d39a6fe882 Jean*0007 C     *==========================================================*
                0008 C     | Notes:                                                   |
                0009 C     |    Some systems require & as the namelist terminator.    |
                0010 C     |    Other systems use a / character.                      |
                0011 C     *==========================================================*
18e2723366 Alis*0012       IMPLICIT NONE
924557e60a Chri*0013 #include "SIZE.h"
                0014 #include "EEPARAMS.h"
                0015
                0016 C     -- Local variables --
                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