Skip to main content

Browse the archive

https://github.com/alphaparrot/ExoPlaSim
07 April 2024, 23:05:31 UTC
Revision 6cd1160f6522dd3f8afca2192b5d18519a368421 authored by Edilbert on 06 October 2014, 08:07:14 UTC, committed by Edilbert on 06 October 2014, 08:07:14 UTC 
fix bug for Planet Simulator in Mars mode
1 parent 03cc392
Raw File
Tip revision: 6cd1160f6522dd3f8afca2192b5d18519a368421 authored by Edilbert on 06 October 2014, 08:07:14 UTC
fix bug for Planet Simulator in Mars mode
Tip revision: 6cd1160
csub.c 
void csub_(int *i, float *r)
{
   if (*i == 257 && *r == 1.0)
      setenv("MOSTF90CALL","csub_",1);
}

void CSUB(int *i, float *r)
{
   if (*i == 257 && *r == 1.0)
      setenv("MOSTF90CALL","CSUB",1);
}

void csub(int *i, float *r)
{
   if (*i == 257 && *r == 1.0)
      setenv("MOSTF90CALL","csub",1);
}
back to top