Revision 718cab4d66f6cf842c44154d008d146964554c5b authored by Adiv Paradise on 24 July 2017, 17:21:33 UTC, committed by Adiv Paradise on 24 July 2017, 17:21:33 UTC
1 parent 30c0662
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);
}
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...