Skip to main content

Browse the archive

Revision 51c2d840ee73ab52b412cdb5b9c2eeb2d0100b38 authored by Adiv Paradise on 16 October 2017, 03:42:22 UTC, committed by Adiv Paradise on 16 October 2017, 03:42:22 UTC 
Second attempt at getting rotation right
1 parent 2a4f9c0
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