C                                           *--> FROM SCOMMON.CALLSWORDR
C  WRITE COMPUTATIONAL ORDER GENERAL PARAMETERS
      CALL SWORDR (IVORDR,UNSD,ICOMPL,
     *   NAMAP,NAFMAP,NAMAPX,ICBASN,ICFMAP,
     *   LARRAY,ARRAY,WDISP,IERR)
C