real fgtmp, stprf, profl, terroz
c
      common /stndprof/fgtmp(11),stprf(11,21),profl(21),terroz(21)