i21sms2.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "mvsiz_p.inc"
#include "parit_c.inc"
#include "task_c.inc"
#include "sms_c.inc"
#include "lockon.inc"
#include "lockoff.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i21sms2 (jlt, mstr, nsvg, nin, noint, mskyi_sms, iskyi_sms, nsms, kt, c, dti)

Function/Subroutine Documentation

i21sms2()

subroutine i21sms2	(	integer	jlt,
		integer	mstr,
		integer, dimension(*)	nsvg,
		integer	nin,
		integer	noint,
			mskyi_sms,
		integer, dimension(lskyi_sms,*)	iskyi_sms,
		integer, dimension(*)	nsms,
			kt,
			c,
			dti )

Definition at line 34 of file i21sms2.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE tri7box
      USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "parit_c.inc"
#include      "task_c.inc"
#include      "sms_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER JLT, NIN, NOINT, MSTR, NSVG(*), NSMS(*), 
     .        ISKYI_SMS(LSKYI_SMS,*)
      my_real
     .    mskyi_sms(*), kt(mvsiz), c(mvsiz), dti
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, IG, NISKYL1, NISKYL, NN
      my_real
     .        mas, dts
C
C
      niskyl1 = 0
      DO i=1,jlt
       IF(nsms(i)==0) cycle
       niskyl1 = niskyl1 + 1
      ENDDO
#include "lockon.inc"
      niskyl     = nisky_sms
      nisky_sms  = nisky_sms + niskyl1
#include "lockoff.inc"
C
      IF (niskyl+niskyl1 > lskyi_sms) THEN
         CALL ancmsg(msgid=26,anmode=aninfo)
         CALL arret(2)
      ENDIF
C
      DO i=1,jlt
       IF(nsms(i)==0) cycle
C
       IF(nsms(i)>0)THEN
         dts = dtmins/dtfacs
         dti=min(dti,dtmins)
       ELSE
         dts = dtmins_int/dtfacs_int
         dti=min(dti,dtmins_int)
       END IF
C
       mas= half * dts * ( dts * kt(i) + c(i) )
C
       ig =nsvg(i)
       niskyl=niskyl+1
       mskyi_sms(niskyl)=mas
       iskyi_sms(niskyl,1)=ig
       iskyi_sms(niskyl,2)=mstr
       iskyi_sms(niskyl,3)=ispmd+1
      ENDDO                
C      
      RETURN