hdiff output

r31681/nodes.f90 2017-01-21 10:37:48.070250000 +0000 r31680/nodes.f90 2017-01-21 10:37:48.366250000 +0000
  1: MODULE NODES  1: MODULE NODES
  2:      USE COMMONS,ONLY : SLURMT, PBST, CHECKSPT, DEBUG, GETMINFRQST, GETTSFRQST  2:      USE COMMONS,ONLY : SLURMT, PBST, CHECKSPT, DEBUG, GETMINFRQST, GETTSFRQST
  3:      USE PORFUNCS  3:      USE PORFUNCS
  4:      IMPLICIT NONE  4:      IMPLICIT NONE
  5:      SAVE  5:      SAVE
  6:   6: 
  7:      INTEGER :: JPN,NNODES,NNLEN,MYSTAT,ACTUALLENPATH, SLURMVERSION  7:      INTEGER :: JPN,NNODES,NNLEN,MYSTAT,ACTUALLENPATH
  8:      INTEGER, PARAMETER :: LENPATH=7000  8:      INTEGER, PARAMETER :: LENPATH=7000
  9:      CHARACTER(LEN=80),ALLOCATABLE,DIMENSION(:) :: NODENAME  9:      CHARACTER(LEN=80),ALLOCATABLE,DIMENSION(:) :: NODENAME
 10:      CHARACTER(LEN=80) :: USERNAME, RANSTRING 10:      CHARACTER(LEN=80) :: USERNAME, RANSTRING
 11:      CHARACTER(LEN=100) :: WORKINGDIRECTORY 11:      CHARACTER(LEN=100) :: WORKINGDIRECTORY
 12:      CHARACTER(LEN=7000) :: TOTALJOBSTRING 12:      CHARACTER(LEN=7000) :: TOTALJOBSTRING
 13: !    CHARACTER(LEN=1000) :: KILLSTRING 13: !    CHARACTER(LEN=1000) :: KILLSTRING
 14:      CHARACTER(LEN=200) :: PATHSTRING 14:      CHARACTER(LEN=200) :: PATHSTRING
 15:      LOGICAL :: SSHPARALLEL=.FALSE., YESNO 15:      LOGICAL :: SSHPARALLEL=.FALSE., YESNO
 16:  16: 
 17:      CHARACTER(LEN=120) :: NODESTRING 17:      CHARACTER(LEN=120) :: NODESTRING
173:                  END IF173:                  END IF
174:                  OPEN(UNIT=127,FILE='sshpath',STATUS='OLD')174:                  OPEN(UNIT=127,FILE='sshpath',STATUS='OLD')
175:                  READ(127,'(A)') SSHPATH175:                  READ(127,'(A)') SSHPATH
176:                  CLOSE(127)176:                  CLOSE(127)
177:                  CALL MYSYSTEM(MYSTAT,DEBUG,'rm sshpath lenpath')177:                  CALL MYSYSTEM(MYSTAT,DEBUG,'rm sshpath lenpath')
178:               ELSE178:               ELSE
179:                  WRITE(*,'(A)') 'getnodes> Unable to read in $PATH - stopping'179:                  WRITE(*,'(A)') 'getnodes> Unable to read in $PATH - stopping'
180:                  STOP180:                  STOP
181:               END IF181:               END IF
182:           END IF182:           END IF
183:  
184:           IF (SLURMT) THEN 
185:              CALL MYSYSTEM(MYSTAT,DEBUG,'sinfo --version | cut -c7-8 > slurmversion') 
186:              IF (YESNO) THEN 
187:                  OPEN(UNIT=128,FILE='slurmversion',STATUS='OLD') 
188:                  READ(128,*) SLURMVERSION 
189:                  CLOSE(128) 
190:                  CALL MYSYSTEM(MYSTAT,DEBUG,'rm slurmversion') 
191:              ELSE 
192:                 WRITE(*,'(A)') 'getnodes> Slurm version unknown - stopping' 
193:                 STOP 
194:              END IF 
195:           END IF 
196:      END SUBROUTINE GETNODES183:      END SUBROUTINE GETNODES
197: 184: 
198:      SUBROUTINE SSHSUBMIT(ICPU,STAT,JOBSTRING,CONNSTR1,LDEBUG)185:      SUBROUTINE SSHSUBMIT(ICPU,STAT,JOBSTRING,CONNSTR1,LDEBUG)
199:           USE PORFUNCS, ONLY: SYSTEM_SUBR186:           USE PORFUNCS, ONLY: SYSTEM_SUBR
200:           USE COMMONS, ONLY: CHARMMT, ZSYM, COPYFILES, COPYOPTIMT, BHINTERPT, BISECTT, SSHT187:           USE COMMONS, ONLY: CHARMMT, ZSYM, COPYFILES, COPYOPTIMT, BHINTERPT, BISECTT, SSHT
201:           IMPLICIT NONE188:           IMPLICIT NONE
202:           REAL HARVEST189:           REAL HARVEST
203: 190: 
204:           INTEGER,INTENT(IN) :: ICPU191:           INTEGER,INTENT(IN) :: ICPU
205:           LOGICAL,INTENT(IN) :: LDEBUG192:           LOGICAL,INTENT(IN) :: LDEBUG
374: ! (6) remove the scratch directory361: ! (6) remove the scratch directory
375:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; rm -r ' // TRIM(ADJUSTL(PATHSTRING))362:           TOTALJOBSTRING=TRIM(ADJUSTL(TOTALJOBSTRING)) // ' ; rm -r ' // TRIM(ADJUSTL(PATHSTRING))
376:           IF (LDEBUG) PRINT '(2A)', 'nodes> complete job string for srun command: ',TRIM(ADJUSTL(TOTALJOBSTRING))363:           IF (LDEBUG) PRINT '(2A)', 'nodes> complete job string for srun command: ',TRIM(ADJUSTL(TOTALJOBSTRING))
377: ! (7) submit the job for real364: ! (7) submit the job for real
378: ! Commands for srun written into this script365: ! Commands for srun written into this script
379:           OPEN(UNIT=225,FILE='submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',STATUS='UNKNOWN')366:           OPEN(UNIT=225,FILE='submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',STATUS='UNKNOWN')
380:           WRITE(225,'(A)') '#!/bin/bash'367:           WRITE(225,'(A)') '#!/bin/bash'
381:           WRITE(225,'(A)') TRIM(ADJUSTL(TOTALJOBSTRING))368:           WRITE(225,'(A)') TRIM(ADJUSTL(TOTALJOBSTRING))
382:           CLOSE(225)369:           CLOSE(225)
383:           CALL MYSYSTEM(MYSTAT,LDEBUG,'chmod +x submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh')370:           CALL MYSYSTEM(MYSTAT,LDEBUG,'chmod +x submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh')
384:           IF (SLURMVERSION <= 14) THEN371:           IF (CUDAT) THEN
385:               IF (CUDAT) THEN372:              CALL SYSTEM_SUBR('srun -n1 -N1 -l --gres=gpu:1 submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS)
386:                  CALL SYSTEM_SUBR('srun -n1 -N1 --exclusive --gres=gpu:1 submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS) 
387:               ELSE 
388:                  CALL SYSTEM_SUBR('srun -n1 -N1 --exclusive submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS) 
389:               END IF 
390:           ELSE IF (SLURMVERSION >= 15) THEN 
391:               IF (CUDAT) THEN 
392:                  CALL SYSTEM_SUBR('srun -n1 -N1 -l --gres=gpu:1 submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS) 
393:               ELSE 
394:                  CALL SYSTEM_SUBR('srun -n1 -N1 -l submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS) 
395:               END IF 
396:           ELSE373:           ELSE
397:               WRITE(*,'(A)') 'slurmsubmit> Slurm version not recognised - stopping'374: !            CALL SYSTEM_SUBR('srun -n1 -N1 -l submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS)
398:               STOP 375:              CALL SYSTEM_SUBR('srun -n1 -N1 --exclusive submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh',MYSTATUS)
399:           END IF376:           END IF
400: ! Remove srun script after completion377: ! Remove srun script after completion
401:           CALL MYSYSTEM(MYSTAT,LDEBUG,'rm -rf submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh')378:           CALL MYSYSTEM(MYSTAT,LDEBUG,'rm -rf submit_' // TRIM(ADJUSTL(RANSTRING)) // '.sh')
402:           STAT=MYSTATUS379:           STAT=MYSTATUS
403: 380: 
404:      END SUBROUTINE SLURMSUBMIT381:      END SUBROUTINE SLURMSUBMIT
405: 382: 
406: END MODULE NODES383: END MODULE NODES


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0