SUBROUTINE FZERO90
!use consts
use global
implicit none  
   
save

      AREAR=0.
      AREAZ=0.
      CIN=0.
      FR=0.
      FZ=0.
      GFR=0.
      GFZ=0.
      RISOR=0.
      RISOZ=0.
      RLAM=0.
      T=0.
      TSF=0.
      GVOHS=0.
      INVOL=0
      VOL=0.
      TOLD=0.
 
      R=0.
      RM=0.
   
      Z=0.
      ZM=0.

     ESUMR=0.
     DTEMP=0.
     VOLOC=0.
     PLSTL=0.
     BETA=0.
     SFBETA=0.
     TGM=0.
     OLDER=0.
   
     RMR=0.
      TSFH=0.
      GFRR=0.
      CINR=0.
     
      TR=0.
      FRR=0.
      TROLD=0.

      ESUM=0.
      OLDE=0.
  
      TUTMED=0.
      
      EPLUS=0.
      ENEG=0.
      ETOP=0.
      ESIDE=0.
      EBOT=0.
      LOMODE=0

RETURN
END subroutine fzero90
