hdiff output

r27788/disconnectionDPS.f90 2017-01-21 10:41:36.527662865 +0000 r27787/disconnectionDPS.f90 2017-01-21 10:41:36.799673907 +0000
563:       & N_NODES, N_TS, PATH, USED, BIG_ONES, BASIN_GMIN, GMIN563:       & N_NODES, N_TS, PATH, USED, BIG_ONES, BASIN_GMIN, GMIN
564:    INTEGER, DIMENSION(:), ALLOCATABLE :: CONNECT, END_M, INDX1, SORTED564:    INTEGER, DIMENSION(:), ALLOCATABLE :: CONNECT, END_M, INDX1, SORTED
565:    DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: FSORTED565:    DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: FSORTED
566:    LOGICAL :: AGAIN, CHANGED566:    LOGICAL :: AGAIN, CHANGED
567:    INTEGER, ALLOCATABLE :: PLUS(:), MINUS(:), NDISTA(:)567:    INTEGER, ALLOCATABLE :: PLUS(:), MINUS(:), NDISTA(:)
568:    LOGICAL, ALLOCATABLE :: DEADTS(:)568:    LOGICAL, ALLOCATABLE :: DEADTS(:)
569:    INTEGER NDUMMY, NN 569:    INTEGER NDUMMY, NN 
570:    DOUBLE PRECISION VMIN, VMAX, DUMMY,R2570:    DOUBLE PRECISION VMIN, VMAX, DUMMY,R2
571:    DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: END_E, TSEN571:    DOUBLE PRECISION, DIMENSION(:), ALLOCATABLE :: END_E, TSEN
572:    DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: BRANCH_XY572:    DOUBLE PRECISION, DIMENSION(:,:,:), ALLOCATABLE :: BRANCH_XY
573:    INTEGER, ALLOCATABLE :: SAVEID(:) 
574: 573: 
575:    INTEGER, ALLOCATABLE :: DJWBASIN(:), NMINGROUP(:), GROUPMAP(:)574:    INTEGER, ALLOCATABLE :: DJWBASIN(:), NMINGROUP(:), GROUPMAP(:)
576:    DOUBLE PRECISION ETHRESH575:    DOUBLE PRECISION ETHRESH
577:    INTEGER NBASIN, NCOUNT, J2576:    INTEGER NBASIN, NCOUNT, J2
578:    WRITE (6, '(/, A)') 'Disconnectivity Graphs'577:    WRITE (6, '(/, A)') 'Disconnectivity Graphs'
579:    WRITE (6, '(A, /)') '----------------------'578:    WRITE (6, '(A, /)') '----------------------'
580: 579: 
581:    CALL READ_OPTIONS580:    CALL READ_OPTIONS
582: !581: !
583: ! Rescale order parameter values between 0 and 1 using the values of TRMAX and TRMIN.582: ! Rescale order parameter values between 0 and 1 using the values of TRMAX and TRMIN.
584: !583: !
585:    IF (TRVALRANGET) THEN584:    IF (TRVALRANGET) THEN
586:       PRINT '(A,2G20.10)','Scaling order parameter values between 0 and 1 for range ',TRMIN,TRMAX585:       PRINT '(A,2G20.10)','Scaling order parameter values between 0 and 1 for range ',TRMIN,TRMAX
587:       DJWSCALE=1.0D0/(TRMAX-TRMIN)586:       DJWSCALE=1.0D0/(TRMAX-TRMIN)
588:       DO J1=1,MINRANGE587:       DO J1=1,MINRANGE
589:          DPMINTRS(J1)=(DPMINTRS(J1)-TRMIN)*DJWSCALE588:          DPMINTRS(J1)=(DPMINTRS(J1)-TRMIN)*DJWSCALE
590: !        PRINT *,'J1,DPMINTRS=',J1,DPMINTRS(J1)589: !        PRINT *,'J1,DPMINTRS=',J1,DPMINTRS(J1)
591:       ENDDO590:       ENDDO
592:    ENDIF591:    ENDIF
593: 592: 
594: ! Read the IDMINFILE file, if required 
595:    IF (IDMINT .AND. FILE_IDMIN /= '') THEN 
596:       OPEN (UNIT=20,FILE=TRIM(FILE_IDMIN),STATUS='OLD') 
597:       NCOUNT=0 
598:       DO 
599:         READ(20,*,IOSTAT=ERR) NDUMMY 
600:         IF (ERR /= 0) EXIT 
601:         NCOUNT=NCOUNT+1 
602:       ENDDO 
603:       REWIND(20) 
604:       ALLOCATE(SAVEID(NMINID)) 
605:       SAVEID(1:NMINID)=MINIDS(1:NMINID) 
606:       DEALLOCATE(MINIDS) 
607:       ALLOCATE(MINIDS(1:NMINID+NCOUNT)) 
608:       MINIDS(1:NMINID)=SAVEID(1:NMINID) 
609:       DEALLOCATE(SAVEID) 
610:       DO J1=1,NCOUNT 
611:         READ(20,*) MINIDS(NMINID+J1) 
612:       ENDDO 
613:       CLOSE(20) 
614:       NMINID=NMINID+NCOUNT 
615:    ENDIF 
616:  
617: !  Procure minima info.593: !  Procure minima info.
618:    CALL COUNT_MIN(FILE_MIN, N_MIN)594:    CALL COUNT_MIN(FILE_MIN, N_MIN)
619:    ALLOCATE (M(N_MIN), END_X(N_MIN), END_Y(N_MIN))595:    ALLOCATE (M(N_MIN), END_X(N_MIN), END_Y(N_MIN))
620:    ALLOCATE (END_E(0:N_MIN), END_M(0:N_MIN))596:    ALLOCATE (END_E(0:N_MIN), END_M(0:N_MIN))
621:    ALLOCATE (DJWBASIN(N_MIN),NMINGROUP(N_MIN),GROUPMAP(0:N_MIN))597:    ALLOCATE (DJWBASIN(N_MIN),NMINGROUP(N_MIN),GROUPMAP(0:N_MIN))
622:    OPEN (UNIT=20, FILE=TRIM(FILE_MIN), STATUS='OLD', IOSTAT=err)598:    OPEN (UNIT=20, FILE=TRIM(FILE_MIN), STATUS='OLD', IOSTAT=err)
623:    IF (ERR /= 0) THEN599:    IF (ERR /= 0) THEN
624:       WRITE (6, '(/,2A,/)') 'ERROR: Could not open ', TRIM(file_min)600:       WRITE (6, '(/,2A,/)') 'ERROR: Could not open ', TRIM(file_min)
625:       STOP601:       STOP
626:    END IF602:    END IF
1965:    DUMP_NUMBERS = .FALSE.1941:    DUMP_NUMBERS = .FALSE.
1966:    DUMP_SIZES = .FALSE.1942:    DUMP_SIZES = .FALSE.
1967:    E_HIGH = 0.0D01943:    E_HIGH = 0.0D0
1968:    EXCLUDEALL = .FALSE.1944:    EXCLUDEALL = .FALSE.
1969:    LOWEST = 01945:    LOWEST = 0
1970:    LAB_FMT = 'F8.2'1946:    LAB_FMT = 'F8.2'
1971:    MONOTONIC = .FALSE.1947:    MONOTONIC = .FALSE.
1972:    N_LEVELS = 01948:    N_LEVELS = 0
1973:    FILE_PICK = ''1949:    FILE_PICK = ''
1974:    FILE_TRACE= ''  1950:    FILE_TRACE= ''  
1975:    FILE_IDMIN = '' 
1976:    SPLIT = .TRUE.1951:    SPLIT = .TRUE.
1977:    ZEROGM = .FALSE.1952:    ZEROGM = .FALSE.
1978: 1953: 
1979:     1954:     
1980:    OPEN (UNIT=20, FILE='dinfo', STATUS='OLD', IOSTAT=err)1955:    OPEN (UNIT=20, FILE='dinfo', STATUS='OLD', IOSTAT=err)
1981:    IF (ERR /= 0) THEN1956:    IF (ERR /= 0) THEN
1982:       WRITE (6, '(/,A,/)') 'ERROR: Could not open dinfo file'1957:       WRITE (6, '(/,A,/)') 'ERROR: Could not open dinfo file'
1983:       STOP1958:       STOP
1984:    END IF1959:    END IF
1985:    ALLOCATE(MINIDS(1))1960:    ALLOCATE(MINIDS(1))
2031:          SAVEID(1:NMINID)=MINIDS(1:NMINID)2006:          SAVEID(1:NMINID)=MINIDS(1:NMINID)
2032:          DEALLOCATE(MINIDS)2007:          DEALLOCATE(MINIDS)
2033:          ALLOCATE(MINIDS(1:NMINID+1))2008:          ALLOCATE(MINIDS(1:NMINID+1))
2034:          MINIDS(1:NMINID)=SAVEID(1:NMINID)2009:          MINIDS(1:NMINID)=SAVEID(1:NMINID)
2035:          MINIDS(NMINID+1)=NDUMMY2010:          MINIDS(NMINID+1)=NDUMMY
2036:          NMINID=NMINID+12011:          NMINID=NMINID+1
2037:          DEALLOCATE(SAVEID)2012:          DEALLOCATE(SAVEID)
2038:       CASE ('IDMINFILE')2013:       CASE ('IDMINFILE')
2039:          IDMINT = .TRUE.2014:          IDMINT = .TRUE.
2040:          CALL GET_STRING(FILE_IDMIN)2015:          CALL GET_STRING(FILE_IDMIN)
 2016:          OPEN (UNIT=20,FILE=TRIM(FILE_IDMIN),STATUS='OLD')
 2017:          NDUMMY2=0
 2018:          DO
 2019:            READ(20,*,END=531) NDUMMY
 2020:            NDUMMY2=NDUMMY2+1
 2021:          ENDDO
 2022: 531      CONTINUE
 2023:          REWIND(20)
 2024:          ALLOCATE(SAVEID(NMINID))
 2025:          SAVEID(1:NMINID)=MINIDS(1:NMINID)
 2026:          DEALLOCATE(MINIDS)
 2027:          ALLOCATE(MINIDS(1:NMINID+NDUMMY2))
 2028:          MINIDS(1:NMINID)=SAVEID(1:NMINID)
 2029:          DO J1=1,NDUMMY2
 2030:            READ(20,*) MINIDS(NMINID+J1)
 2031:          ENDDO
 2032:          CLOSE(20)
 2033:          NMINID=NMINID+NDUMMY2
 2034:    
2041:       CASE ('LABELFORMAT')2035:       CASE ('LABELFORMAT')
2042:          CALL GET_STRING(LAB_FMT)2036:          CALL GET_STRING(LAB_FMT)
2043:       CASE ('LABELSIZE')2037:       CASE ('LABELSIZE')
2044:          CALL GET_INTEGER(LABEL_SIZE)2038:          CALL GET_INTEGER(LABEL_SIZE)
2045:       CASE ('LETTER')2039:       CASE ('LETTER')
2046:          PAGE_X = 6122040:          PAGE_X = 612
2047:          PAGE_Y = 7922041:          PAGE_Y = 792
2048:       CASE ('LEVELS')2042:       CASE ('LEVELS')
2049:          CALL GET_INTEGER(N_LEVELS)2043:          CALL GET_INTEGER(N_LEVELS)
2050:       CASE ('LOWEST')2044:       CASE ('LOWEST')


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0