https://github.com/alphaparrot/ExoPlaSim
Tip revision: bb582e7a15d2aa15169148f8e042143226b017c5 authored by Adiv Paradise on 18 September 2020, 22:40:15 UTC
Modified default filtering parameters
Modified default filtering parameters
Tip revision: bb582e7
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);
}