Skip to main content

Browse the archive

Revision 3650f8d883aeb1509028d79bb05de883c96726ef authored by Edilbert on 20 April 2015, 08:00:37 UTC, committed by Edilbert on 20 April 2015, 08:00:37 UTC 
change read statements in mpimod.f90 to implicit do in order to avoid
 
intel compiler warnings
1 parent df82aeb
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