PHOS/shaker/shfdry.f

   1 *CMZ :          17/07/98  15.49.05  by  Federico Carminati
   2 *-- Author :
   3       FUNCTION SHFDRY(X)
   4 c       ==================
   5
   6       SHFDRY = SHMTSC(1.5,X)
   7       RETURN
   8       END