Symbol Description Uses
fsc 14



File Line number Procedure Code
./pkg/sphere/sphere.F 466 FSC2DAT
      subroutine FSC2DAT(n,fsc)
./pkg/sphere/sphere.F 473 FSC2DAT
      real fsc(n)
./pkg/sphere/sphere.F 478 FSC2DAT
        fsc(i  ) =  fsc(i  )*0.5
./pkg/sphere/sphere.F 479 FSC2DAT
        fsc(i+1) = -fsc(i+1)*0.5   ! change sign of sine coeffs.
./pkg/sphere/sphere.F 483 FSC2DAT
      call FFTRB(n,fsc,fsc)
./pkg/sphere/sphere.F 486 FSC2DAT
        fsc( i ) = 0.0
./pkg/sphere/sphere.F 69 FSC4DAT
        fsc(i) = 0.0
./pkg/sphere/sphere.F 80 FSC4DAT
        fsc( i ) =  fsc( i )*scale
./pkg/sphere/sphere.F 83 FSC4DAT
        fsc( i ) = -fsc( i )*scale ! change sign of sine coeffs.