Revision history [back]

 SUBROUTINE WTEC(MC,ISLOT)
  INCLUDE 'COMON4.INS'
  INTEGER   MC,   ISLOT
  INTEGER J, K, IB, IW， I
  I=MC
  J=WSTRTIN(1,ISLOT)
  K=WSTRTIN(2,ISLOT)
  IW=WNDNUM(I)
  IF (MODE.EQ.8) GO TO 1000
  IF (MODE.EQ.3) GO TO 1200
1000  CON_DSCRPT(1) ='Pref'
      RETURN
1200  WIPCMD(IW)=CON(J)/ETERM(I)
      RETURN
      END

 SUBROUTINE WTEC(MC,ISLOT)
   INCLUDE 'COMON4.INS'
   INTEGER   MC,   ISLOT
   INTEGER J, K, IB, IW， I
   I=MC
   J=WSTRTIN(1,ISLOT)
   K=WSTRTIN(2,ISLOT)
   IW=WNDNUM(I)
   IF (MODE.EQ.8) GO TO 1000
   IF (MODE.EQ.3) GO TO 1200
 1000  CON_DSCRPT(1) ='Pref'
       RETURN
 1200  WIPCMD(IW)=CON(J)/ETERM(I)
       RETURN
       END