
      SUBROUTINE STRUCTP(Xi,Scale2,P2,Ip2,Uv,Dv,Us,Ds,Ss,Cs,Bs,Ts,Gl)
      IMPLICIT NONE
      DOUBLE PRECISION Bs , Cs , Ds , Dv , Gl , P2 , Scale2 , Ss , Ts , 
     &                 Us , Uv , Xi
      INTEGER Ip2
      END SUBROUTINE
