CFD Online Discussion Forums

CFD Online Discussion Forums (http://www.cfd-online.com/Forums/)
-   CFX (http://www.cfd-online.com/Forums/cfx/)
-   -   How to call a subrutine writen with Fortran (http://www.cfd-online.com/Forums/cfx/26270-how-call-subrutine-writen-fortran.html)

Lana August 19, 2008 04:07

How to call a subrutine writen with Fortran
 
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.

Lana August 19, 2008 05:12

Re: How to call a subrutine writen with Fortran *NM*
 

underGroundMan August 19, 2008 08:33

Re: How to call a subrutine writen with Fortran
 
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


brunoc August 19, 2008 17:38

Re: How to call a subrutine writen with Fortran
 
You have to change the cfx5mkext.ccl file to use Compaq Visual Fortran on v11. Check the documentation.

Lana August 20, 2008 05:41

Re: How to call a subrutine writen with Fortran
 
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();



All times are GMT -4. The time now is 01:21.