Revision e40eca44b97600a2d41142face2bcecda25d20f8 authored by Adiv Paradise on 14 April 2019, 22:37:47 UTC, committed by Adiv Paradise on 14 April 2019, 22:37:47 UTC
1 parent 2e6fc04
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 ...