Halaman utama Jelajahi Bantuan
Masuk
TECLIM
/
PlaSim
3
0
Fork 0
Berkas Masalah 0 Permintaan Tarik 0 Wiki
Cabang: master
Ranting Tag
PlaSim
/
csub.c

csub.c 308 B
Permalink Riwayat Mentahan

123456789101112131415161718 
  1. void csub_(int *i, float *r)
    2. 

  2. {
    3. 

  3.    if (*i == 257 && *r == 1.0)
    4. 

  4.       setenv("MOSTF90CALL","csub_",1);
    5. 

  5. }
    6. 

  6. 

  7. void CSUB(int *i, float *r)
    8. 

  8. {
    9. 

  9.    if (*i == 257 && *r == 1.0)
    10. 

  10.       setenv("MOSTF90CALL","CSUB",1);
    11. 

  11. }
    12. 

  12. 

  13. void csub(int *i, float *r)
    14. 

  14. {
    15. 

  15.    if (*i == 257 && *r == 1.0)
    16. 

  16.       setenv("MOSTF90CALL","csub",1);
    17. 

  17. }
    18. 

  18.