Révision 8 src/PrintAnaList.f90

PrintAnaList.f90 (revision 8)
40 40

  
41 41
  If (Debug) Call Header("Entering PrintAnaList")
42 42

  
43
  WRITE(FileUnit,'(A)') "# Centers of mass used "
44

  
43 45
  CurBary => Bary
44 46

  
45 47
  DO I=1,NbCom
......
53 55
     if (associated(CurBary%Next)) CurBary=> CurBary%Next
54 56
  END DO
55 57

  
58
  WRITE(FileUnit,'(A)') "# Variables monitored "
59

  
56 60
  CurVar => GeomList
57 61
  DO I=1,NbVar
58 62
     SELECT CASE (CurVar%Type)

Formats disponibles : Unified diff