https://github.com/alphaparrot/ExoPlaSim
Tip revision: 5cf0f8546e3438bf396028e7d6539e6bdcc22889 authored by Adiv Paradise on 17 October 2017, 02:19:40 UTC
Fixes
Fixes
Tip revision: 5cf0f85
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);
}