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