hdiff output

r29741/cycle2.f90 2016-01-13 10:30:04.692469502 +0000 r29740/cycle2.f90 2016-01-13 10:30:04.888472105 +0000
349:          IF (NDUMMY.EQ.1) THEN349:          IF (NDUMMY.EQ.1) THEN
350:             PRINT '(3(A,I8))','cycle2> stationary point ',MINID(NEWJOB), &350:             PRINT '(3(A,I8))','cycle2> stationary point ',MINID(NEWJOB), &
351:   &                           ' process id ',PID(NEWJOB),' converged on cpu ',NEWJOB351:   &                           ' process id ',PID(NEWJOB),' converged on cpu ',NEWJOB
352:             !kr366> get frequency from frqs.dump352:             !kr366> get frequency from frqs.dump
353:             IF (GETMINFRQST) THEN353:             IF (GETMINFRQST) THEN
354:                OPEN(514,FILE='frqs.dump.'//TRIM(ADJUSTL(CONNSTR)),ACTION='READ',STATUS='OLD')354:                OPEN(514,FILE='frqs.dump.'//TRIM(ADJUSTL(CONNSTR)),ACTION='READ',STATUS='OLD')
355:                READ(514,*) MINFRQ 355:                READ(514,*) MINFRQ 
356:                WRITE(513,'(I8,F20.10)') MINID(NEWJOB) , MINFRQ356:                WRITE(513,'(I8,F20.10)') MINID(NEWJOB) , MINFRQ
357:                CLOSE(514)357:                CLOSE(514)
358:                PRINT '(A,I8)','cycle2> frequency calculated for minimum: ',MINID(NEWJOB)358:                PRINT '(A,I8)','cycle2> frequency calculated for minimum: ',MINID(NEWJOB)
359:                IF(.NOT. DEBUG) THEN359:                CALL MYSYSTEM(STATUS,DEBUG,'rm frqs.dump.'//TRIM(ADJUSTL(CONNSTR))//' min.data.info.' &
360:                    CALL MYSYSTEM(STATUS,DEBUG,'rm frqs.dump.'//TRIM(ADJUSTL(CONNSTR))//' min.data.info.' & 
361:   &                    //TRIM(ADJUSTL(CONNSTR))//' OPTIM.checksp.'//TRIM(ADJUSTL(CONNSTR))//' convcheck.' &360:   &                    //TRIM(ADJUSTL(CONNSTR))//' OPTIM.checksp.'//TRIM(ADJUSTL(CONNSTR))//' convcheck.' &
362:   &                    //TRIM(ADJUSTL(CONNSTR))//' start.'//TRIM(ADJUSTL(CONNSTR))//' odata.' &361:   &                    //TRIM(ADJUSTL(CONNSTR))//' start.'//TRIM(ADJUSTL(CONNSTR))//' odata.' &
363:   &                    //TRIM(ADJUSTL(CONNSTR)))362:   &                    //TRIM(ADJUSTL(CONNSTR)))
364:                ENDIF 
365:             ENDIF363:             ENDIF
366:             IF (GETTSFRQST) THEN364:             IF (GETTSFRQST) THEN
367:                OPEN(514,FILE='frqs.dump.'//TRIM(ADJUSTL(CONNSTR)),ACTION='READ',STATUS='OLD')365:                OPEN(514,FILE='frqs.dump.'//TRIM(ADJUSTL(CONNSTR)),ACTION='READ',STATUS='OLD')
368:                READ(514,*) MINFRQ366:                READ(514,*) MINFRQ
369:                WRITE(513,'(I8,F20.10)') MINID(NEWJOB) , MINFRQ367:                WRITE(513,'(I8,F20.10)') MINID(NEWJOB) , MINFRQ
370:                CLOSE(514)368:                CLOSE(514)
371:                PRINT '(A,I8)','cycle2> frequency calculated for minimum: ',MINID(NEWJOB)369:                PRINT '(A,I8)','cycle2> frequency calculated for minimum: ',MINID(NEWJOB)
372:                IF(.NOT. DEBUG) THEN370:                CALL MYSYSTEM(STATUS,DEBUG,'rm frqs.dump.'//TRIM(ADJUSTL(CONNSTR))//' min.data.info.' &
373:                    CALL MYSYSTEM(STATUS,DEBUG,'rm frqs.dump.'//TRIM(ADJUSTL(CONNSTR))//' min.data.info.' & 
374:   &                    //TRIM(ADJUSTL(CONNSTR))//' OPTIM.checksp.'//TRIM(ADJUSTL(CONNSTR))//' convcheck.' &371:   &                    //TRIM(ADJUSTL(CONNSTR))//' OPTIM.checksp.'//TRIM(ADJUSTL(CONNSTR))//' convcheck.' &
375:   &                    //TRIM(ADJUSTL(CONNSTR))//' start.'//TRIM(ADJUSTL(CONNSTR))//' odata.' &372:   &                    //TRIM(ADJUSTL(CONNSTR))//' start.'//TRIM(ADJUSTL(CONNSTR))//' odata.' &
376:   &                    //TRIM(ADJUSTL(CONNSTR)))373:   &                    //TRIM(ADJUSTL(CONNSTR)))
377:                ENDIF 
378:             ENDIF374:             ENDIF
379:          ELSE375:          ELSE
380:             PRINT '(3(A,I8))','cycle2> WARNING *** stationary point ',MINID(NEWJOB), &376:             PRINT '(3(A,I8))','cycle2> WARNING *** stationary point ',MINID(NEWJOB), &
381:   &                           ' process id ',PID(NEWJOB),' no CONVERGED message ',NEWJOB377:   &                           ' process id ',PID(NEWJOB),' no CONVERGED message ',NEWJOB
382:          ENDIF378:          ENDIF
383:       ELSE379:       ELSE
384:          PRINT '(3(A,I8))','cycle2> ERROR *** no OPTIM output file for stationary point ',MINID(NEWJOB), &380:          PRINT '(3(A,I8))','cycle2> ERROR *** no OPTIM output file for stationary point ',MINID(NEWJOB), &
385:   &                        ' process id ',PID(NEWJOB),' cpu ',NEWJOB381:   &                        ' process id ',PID(NEWJOB),' cpu ',NEWJOB
386:       ENDIF382:       ENDIF
387:       STATUS=-1383:       STATUS=-1


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0