Skip to main content

Browse the archive

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 
Added buildice.f90 (missing file).
1 parent 30c0662
Raw File
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