subroutings

Juliet

Hi,Guys i am calculating some problem in which such subroutine as sorsca,fluinj,sorent are involved in. the solution shows every subroutine have been used. mass and species have benn changed because of the subroutines. but it is strange that the temperature didn'e get any change. i don't know why it is. chould you any body tell me about that, thank you in advance! the sub.sorent like follows:

if (intflg(1).eq.0) then

write(*,*) 'In SORENT!'

write(60,*) 'In SORENT!'

intflg(1)=1

end if

IF(ICTID.EQ.24) THEN

S1P=800

S2P=0.0

ELSE

IF(ICTID.EQ.23)THEN

S1P=3300

S2P=0.0

ELSE

IF(ICTID.EQ.25)THEN

S1P=960

S2P=0.0

ENDIF

ENDIF

ENDIF BY THE WAY, I WANT TO KNOW (HERE THE UNIT OF SIP,IS W/M3) WHAT MEANS THE VOLUME M3,IS THE WHOLE MODEL'S VOLUME ?

Juliet