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

How to call a subrutine writen with Fortran

Register Blogs Community New Posts Updated Threads Search

Reply
 
LinkBack Thread Tools Search this Thread Display Modes
Old   August 19, 2008, 05:07
Default How to call a subrutine writen with Fortran
  #1
Lana
Guest
 
Posts: n/a
I'm triying to do Tutorial 17 and I'm having a lot of problems to call a subrutine that apears into the tutorial. I'm using Compaq Visual Fortran 6.6.0 as a compiler and I don't really know if it can be used with Ansys V11. I dont't know if that's the problem or rather I'm using incorrectly the cfx5mkext command. If someone could help me I'd really appreciate.
  Reply With Quote

Old   August 19, 2008, 06:12
Default Re: How to call a subrutine writen with Fortran *NM*
  #2
Lana
Guest
 
Posts: n/a
  Reply With Quote

Old   August 19, 2008, 09:33
Default Re: How to call a subrutine writen with Fortran
  #3
underGroundMan
Guest
 
Posts: n/a
Hi Lana

I have just installed compaq visual 6.1, standard edition. I am also trying to compile a subroutine in tutorial 9, but it does not seem to be working. What platform are you working on?

Regards

  Reply With Quote

Old   August 19, 2008, 18:38
Default Re: How to call a subrutine writen with Fortran
  #4
brunoc
Guest
 
Posts: n/a
You have to change the cfx5mkext.ccl file to use Compaq Visual Fortran on v11. Check the documentation.
  Reply With Quote

Old   August 20, 2008, 06:41
Default Re: How to call a subrutine writen with Fortran
  #5
Lana
Guest
 
Posts: n/a
As Brunoc said, you have to change the cfx5mkext.ccl file in order to use Compaq Visual Fortran (it is explained in ANSYS help when you search for cfx5mkext) however, I'm using Compaq Visual Fortran6.6.0, using ANSYS V11, I'm not sure if it'll work with 6.1. If anyone is trying to solve tutoril 17, instead of using the recomended line in the command editor:

! system ("cfx5mkext TStat_Control.F") < 1 or die "cfx5mkext failed";

try using this instead (in my case, it worked):

! { ! local $SIG{CHLD}='DEFAULT'; ! ! my $rv=system ("cfx5mkext TStat_Control.F"); ! ! if ($rv == -1) { ! die "Error getting return value from cfx5mkext: $!"; ! } elsif ($rv != 0) { ! die "Error $rv running cfx5mkext. See terminal window for details: $!"; ! } ! }

! use Cwd; ! my $here=getcwd();

  Reply With Quote

Reply


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
Call Fortran program from OpenFoam tsjb00 OpenFOAM Running, Solving & CFD 6 April 22, 2013 16:26
How to call FLUENT in my Fortran source? Sandia FLUENT 2 December 1, 2012 16:33
How to call FORTRAN files as UDF? Ehsan-F Fluent UDF and Scheme Programming 6 September 11, 2012 12:03
CFX11 + Fortran compiler ? Mohan CFX 20 March 30, 2011 19:56
2D CFD code using SIMPLE algorithm bfan Main CFD Forum 3 June 22, 2002 23:01


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