Skip to main content

Browse the archive

Revision ea4d2d8d11d8b4c8de2ed947f3362f3932e620c3 authored by Frank on 28 June 2017, 14:13:41 UTC, committed by Frank on 28 June 2017, 14:13:41 UTC 
Frank 28.06.17:
 
plasim.f90 bugfix for nentropy > 0 (and nenergy=0)
1 parent b7f3e34
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