hdiff output

r33480/amber_mutations.F90 2017-11-15 10:30:13.161617172 +0000 r33479/amber_mutations.F90 2017-11-15 10:30:13.393620255 +0000
872:            ELSE872:            ELSE
873:               WRITE(MIUNIT,'(I8)',ADVANCE='NO') J1873:               WRITE(MIUNIT,'(I8)',ADVANCE='NO') J1
874:            ENDIF874:            ENDIF
875:         ENDIF875:         ENDIF
876:      ENDDO876:      ENDDO
877:      !now we get to actual mutation information877:      !now we get to actual mutation information
878:      !line 1: RESNUM NENTRIES CURRENT_RES NMUTATIONS878:      !line 1: RESNUM NENTRIES CURRENT_RES NMUTATIONS
879:      !line 2: RESNAME1 RESNAME2 RESNAME3 ...879:      !line 2: RESNAME1 RESNAME2 RESNAME3 ...
880:      !line 3: PROB1 PROB2 PROB3 ...880:      !line 3: PROB1 PROB2 PROB3 ...
881:      DO J1=1,NRESMUT881:      DO J1=1,NRESMUT
882:         WRITE(MIUNIT,'(2(I8),A6,I8)') MUTATION_INFO(J1)%RESNUM, MUTATION_INFO(J1)%NENTRIES, &882:         WRITE(MIUNIT,'(2(I8),A6,I8)') MUTATION_INFO(J1)%RESNUM, MUTATION_INFO(J1)%NENTRIES, MUTATION_INFO(J1)%CURRENT_RES, MUTATION_INFO(J1)%NMUTATIONS
883:        &                              MUTATION_INFO(J1)%CURRENT_RES, MUTATION_INFO(J1)%NMUTATIONS 
884:         WRITE(MIUNIT, *) MUTATION_INFO(J1)%RESCHOICE(:)883:         WRITE(MIUNIT, *) MUTATION_INFO(J1)%RESCHOICE(:)
885:         WRITE(MIUNIT, *) MUTATION_INFO(J1)%PROBABILITIES(:)       884:         WRITE(MIUNIT, *) MUTATION_INFO(J1)%PROBABILITIES(:)       
886:      ENDDO885:      ENDDO
887:      CLOSE(MIUNIT)886:      CLOSE(MIUNIT)
888:   END SUBROUTINE AMBERMUTDUMP887:   END SUBROUTINE AMBERMUTDUMP
889: 888: 
890:   SUBROUTINE AMBERMUT_CURR_LOWEST()889:   SUBROUTINE AMBERMUT_CURR_LOWEST()
891:      CHARACTER(LEN=6) :: J1_STRING, NMUT_STRING890:      CHARACTER(LEN=6) :: J1_STRING, NMUT_STRING
892:      INTEGER :: J1    891:      INTEGER :: J1    
893:  892:  


legend
Lines Added 
Lines changed
 Lines Removed

hdiff - version: 2.1.0