subroutine sorent.f
 

Hello,

I am trying to run a model a model with subroutine sorent.f which should fix the temperatures for two solids. The model is running but it's displayed #warning 530 sorent activated but not used

What does that mean and what could be the problem?

Thanks Peter

Re: subroutine sorent.f
 

You have to activate user subroutines in starlink or in star guide when compile executable.

Re: subroutine sorent.f
 

Thanks for your answer. I think I have activated the subroutine while linking. I've started the analysis interactively and activated there the usub button YES. Is this correct? What could be the reason that the subroutine is ignored? Where can I get infos about warning 530?

Re: subroutine sorent.f
 

Peter,

The problem is that your user subroutine has not been compiled into the executable that you are running.

Run "starlink" from the command line and answer "y" to the question, "Do you have user subroutines?". starlink will then write to the screen that it has compiled "sorent.f" (if it works)!

One possibility is that there is an error in your user subroutine, which means the compilation fails. If you run starlink from the command line you will easily be able to see if any error messages are returned.

Alex.

Re: subroutine sorent.f
 

Hi Alex,

you are right. But what's wrong:

IF (IMAT.EQ.-7) THEN S1P=GREAT*283 S2P=GREAT ELSEIF (IMAT.EQ.-5) THEN S1P=GREAT*313 S2P=GREAT ENDIF

RETURN END

I am using absoft compiler 8.0 ang get two errors:

first line: ivalid statement label third line: illegal expression???

Re: subroutine sorent.f
 

from above coding it appears that you want to set temparatures to two solids. Do not USE elseif. Use two TIMES 'if'. It will do. IF (IMAT.EQ.-7) THEN S1P=GREAT*283 S2P=GREAT ENDIF IF (IMAT.EQ.-5) THEN S1P=GREAT*313 S2P=GREAT ENDIF RETURN END