CFD Online Logo CFD Online URL
www.cfd-online.com
[Sponsors]
Home > Forums > Software User Forums > Siemens

subroutine sorent.f

Register Blogs Members List Search Today's Posts Mark Forums Read

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
Old   April 13, 2004, 12:18
Default subroutine sorent.f
  #1
Peter
Guest
 
Posts: n/a
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
  Reply With Quote

Old   April 13, 2004, 16:53
Default Re: subroutine sorent.f
  #2
Rim
Guest
 
Posts: n/a
You have to activate user subroutines in starlink or in star guide when compile executable.
  Reply With Quote

Old   April 14, 2004, 03:39
Default Re: subroutine sorent.f
  #3
Peter
Guest
 
Posts: n/a
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?
  Reply With Quote

Old   April 14, 2004, 08:36
Default Re: subroutine sorent.f
  #4
alex
Guest
 
Posts: n/a
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.

  Reply With Quote

Old   April 14, 2004, 10:44
Default Re: subroutine sorent.f
  #5
Peter
Guest
 
Posts: n/a
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???
  Reply With Quote

Old   April 15, 2004, 02:25
Default Re: subroutine sorent.f
  #6
CARNO
Guest
 
Posts: n/a
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
  Reply With Quote

Reply

Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
How can I call EM in subroutine-----sorent.f conglin Siemens 1 November 28, 2008 12:12
User Subroutine ----- sorent conglin Siemens 2 November 24, 2008 21:45
About Sorent.f Choi Siemens 5 June 10, 2005 06:19
About reacfn.f and sorent.f subroutines Esti Siemens 2 January 20, 2005 10:28
About source term in SORENT.F Sang-Jin Lee Siemens 3 November 24, 2001 12:14


All times are GMT -4. The time now is 03:45.