hdiff output

r32261/MLPB3.f90 2017-04-05 16:30:13.647034757 +0100 r32260/MLPB3.f90 2017-04-05 16:30:13.879037790 +0100
  6: LOGICAL GTEST,SECT  6: LOGICAL GTEST,SECT
  7: DOUBLE PRECISION X(NMLP), V(NMLP), ENERGY, DUMMY1, DUMMY2, DUMMY3, DUMMY4, SUMINPUTS, AREA  7: DOUBLE PRECISION X(NMLP), V(NMLP), ENERGY, DUMMY1, DUMMY2, DUMMY3, DUMMY4, SUMINPUTS, AREA
  8: DOUBLE PRECISION Y(MLPOUT), PROB(MLPOUT), PMLPOUTJ1, DMAX  8: DOUBLE PRECISION Y(MLPOUT), PROB(MLPOUT), PMLPOUTJ1, DMAX
  9: DOUBLE PRECISION DYW1G(MLPHIDDEN), DPCW1BG(MLPOUT,MLPHIDDEN)  9: DOUBLE PRECISION DYW1G(MLPHIDDEN), DPCW1BG(MLPOUT,MLPHIDDEN)
 10: DOUBLE PRECISION DYW2G(MLPOUT,MLPHIDDEN,MLPIN), DPCW2BG(MLPHIDDEN,MLPIN), TANHSUM(MLPHIDDEN), SECH2(MLPHIDDEN) 10: DOUBLE PRECISION DYW2G(MLPOUT,MLPHIDDEN,MLPIN), DPCW2BG(MLPHIDDEN,MLPIN), TANHSUM(MLPHIDDEN), SECH2(MLPHIDDEN)
 11: DOUBLE PRECISION DYCDBHID(MLPOUT), DPCDBHID(MLPOUT), DPCDBHIDOUTJ1, D2PCDBHID2, D2YCDBHID2(MLPOUT) 11: DOUBLE PRECISION DYCDBHID(MLPOUT), DPCDBHID(MLPOUT), DPCDBHIDOUTJ1, D2PCDBHID2, D2YCDBHID2(MLPOUT)
 12: DOUBLE PRECISION DPCDW2BG(MLPOUT,MLPHIDDEN,MLPIN), D2YCDBHIDDW2BG, D2PCDBHIDDW2BG 12: DOUBLE PRECISION DPCDW2BG(MLPOUT,MLPHIDDEN,MLPIN), D2YCDBHIDDW2BG, D2PCDBHIDDW2BG
 13: DOUBLE PRECISION DPCDBHIDDW1BG(MLPOUT,MLPHIDDEN) 13: DOUBLE PRECISION DPCDBHIDDW1BG(MLPOUT,MLPHIDDEN)
 14: DOUBLE PRECISION, PARAMETER :: BOUT=0.0D0 14: DOUBLE PRECISION, PARAMETER :: BOUT=0.0D0
 15: DOUBLE PRECISION, ALLOCATABLE :: PSAVE(:,:) 15: DOUBLE PRECISION, ALLOCATABLE :: PSAVE(:,:)
 16: INTEGER MLPOUTJ1, MLPOFFSET, BOFFSET, JMAX 16: INTEGER MLPOUTJ1, MLPOFFSET, BOFFSET
 17: INTEGER GETUNIT, LUNIT, J1, J2, J3, J4, K4, K2, K3, J5 17: INTEGER GETUNIT, LUNIT, J1, J2, J3, J4, K4, K2, K3, J5
 18: CHARACTER(LEN=132) FNAME 18: CHARACTER(LEN=132) FNAME
 19:  19: 
 20: ! 20: !
 21: ! Variables are ordered  21: ! Variables are ordered 
 22: ! w^2_{jk} at (j-1)*MLPIN+k 22: ! w^2_{jk} at (j-1)*MLPIN+k
 23: !   up to MLPHIDDEN*MLPIN, then 23: !   up to MLPHIDDEN*MLPIN, then
 24: ! w^1_{ij} at MLPHIDDEN*MLPIN + (i-1)*MLPHIDDEN+j 24: ! w^1_{ij} at MLPHIDDEN*MLPIN + (i-1)*MLPHIDDEN+j
 25: !   up to MLPHIDDEN*MLPIN + MLPOUT*MLPHIDDEN 25: !   up to MLPHIDDEN*MLPIN + MLPOUT*MLPHIDDEN
 26: ! bhidden at MLPHIDDEN*(MLPIN+MLPOUT)+1 26: ! bhidden at MLPHIDDEN*(MLPIN+MLPOUT)+1
 89:    ENDDO 89:    ENDDO
 90:    DO J4=1,MLPOUT 90:    DO J4=1,MLPOUT
 91:       PROB(J4)=EXP(Y(J4))/DUMMY3 91:       PROB(J4)=EXP(Y(J4))/DUMMY3
 92:    ENDDO 92:    ENDDO
 93:    PMLPOUTJ1=PROB(MLPOUTJ1) 93:    PMLPOUTJ1=PROB(MLPOUTJ1)
 94:    IF (MLPPROB) THEN 94:    IF (MLPPROB) THEN
 95: !     WRITE(*,'(A,I8,A)') 'MLP3> data point ',J1,' outputs and probabilities:' 95: !     WRITE(*,'(A,I8,A)') 'MLP3> data point ',J1,' outputs and probabilities:'
 96: !     WRITE(LUNIT,'(8G15.5)') Y(1:MLPOUT),PROB(1:MLPOUT), MLPOUTJ1 96: !     WRITE(LUNIT,'(8G15.5)') Y(1:MLPOUT),PROB(1:MLPOUT), MLPOUTJ1
 97: !     WRITE(*,'(100G20.10)') PROB(1:MLPOUT), MLPOUTJ1*1.0D0 97: !     WRITE(*,'(100G20.10)') PROB(1:MLPOUT), MLPOUTJ1*1.0D0
 98:       PSAVE(J1,1:MLPOUT)=PROB(1:MLPOUT) 98:       PSAVE(J1,1:MLPOUT)=PROB(1:MLPOUT)
 99:       DMAX=-1.0D10 
100:       DO J2=1,MLPOUT 
101:          IF (PROB(J2).GT.DMAX) THEN 
102:             JMAX=J2 
103:             DMAX=PROB(J2) 
104:          ENDIF 
105:       ENDDO 
106:       WRITE(*,'(I5,A,I10,A,4G20.10)') JMAX,' highest P for data point ',J1,' values: ',PROB(1:MLPOUT) 
107:    ENDIF 99:    ENDIF
108:    ENERGY=ENERGY-LOG(PMLPOUTJ1)100:    ENERGY=ENERGY-LOG(PMLPOUTJ1)
109:    IF (GTEST) THEN101:    IF (GTEST) THEN
110: !102: !
111: ! We only need the probability derivative for the probability corresponding to the correct outcome for this data point103: ! We only need the probability derivative for the probability corresponding to the correct outcome for this data point
112: !104: !
113:       DPCW1BG(1:MLPOUT,1:MLPHIDDEN)=0.0D0105:       DPCW1BG(1:MLPOUT,1:MLPHIDDEN)=0.0D0
114:       DO J2=1,MLPHIDDEN106:       DO J2=1,MLPHIDDEN
115:          DO J4=1,MLPOUT107:          DO J4=1,MLPOUT
116:             DPCW1BG(J4,J2)=DPCW1BG(J4,J2)-PMLPOUTJ1*PROB(J4)*DYW1G(J2)108:             DPCW1BG(J4,J2)=DPCW1BG(J4,J2)-PMLPOUTJ1*PROB(J4)*DYW1G(J2)


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0