Révision 8 src/ReadAnaList.f90

ReadAnaList.f90 (revision 8)
31 31

  
32 32
  END INTERFACE
33 33

  
34
  LOGICAL :: Debug,FirstVar,FirstCom
34
  LOGICAL :: Debug
35 35
  INTEGER(KINT) :: At1,At2,At3,At4
36 36
  INTEGER(KINT) :: I,Idx,J
37 37

  
......
50 50

  
51 51
  NbCom=0
52 52
  NbVar=0
53
  FormAna='(1X'
53
  FormAna='(1X,F8.3'
54 54
  DO I=1, Nb
55 55
     READ(IOIN,'(A)') Line
56 56
     Line=AdjustL(Line)
......
110 110
           if (debug) THEN
111 111
              WRITE(*,'("# d ",4(I3))') At1,At2,At3,At4
112 112
           END IF
113
           FormAna=TRIM(FormAna) //',1X,F7.2'
113 114
           Allocate(CurVar%Next)
114 115
           CurVar => CurVar%Next
115 116
           Nullify(CurVar%Next)
......
129 130
              WRITE(*,'("# c ",I4,20(I3))') At1, &
130 131
                   (CurBary%ListAtoms(j),j=1,At1)
131 132
           END IF
132
           FormAna=Trim(FormAna) //',1X,F7.2'
133

  
134 133
           Allocate(CurBary%Next)
135 134
           CurBary => CurBary%Next
136 135
           Nullify(CurBary%Next)

Formats disponibles : Unified diff