c----------------------------------------------------------------------- c INCLUDE comcstfi.h COMMON/comcstfi/ * pi,rad,g,r,cpp,rcp,dtphys,daysec,mugaz,omeg REAL pi,rad,g,r,cpp,rcp,dtphys,daysec,mugaz,omeg real cpdet external cpdet c-----------------------------------------------------------------------