Ignore:
Timestamp:
Feb 24, 2009, 3:46:23 PM (15 years ago)
Author:
lguez
Message:

"comconst.h", and "comgeom2.h" are now both fixed and free form.
Removed calls to procedure "flush".
Corrected kinds of constants which appeared as arguments to "min" or
"max" (all arguments are now of the same type and kind).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/comconst.h

    r774 r1106  
    22! $Header$
    33!
    4 c-----------------------------------------------------------------------
    5 c INCLUDE comconst.h
     4!-----------------------------------------------------------------------
     5! INCLUDE comconst.h
    66
    7       COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,
    8      * dtvr,daysec,
    9      * pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg
     7      COMMON/comconst/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,           &
     8     & dtvr,daysec,                                                     &
     9     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg
    1010
    1111      INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
    … …  
    1414      REAL cotot,unsim,g,omeg
    1515
    16 c-----------------------------------------------------------------------
     16!-----------------------------------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.