Функция Fortran, которая проверяет тип оперативной системы

Question

Есть ли функция в Fortran, которая запрашивает тип оперативной системы? и дает этот тип как строку или что-то подобное? В принципе, я хотел бы использовать функцию SYSTEM и запускать мою программу как на Linux, так и на машинах Windows. Моя программа, использующая функцию SYSTEM, хорошо работает на linux, но теперь я хочу сделать ее общей и запустить ее также в окнах. Предположим, что эта функция, которую я ищу, называется INQUIRE_SYSTEM. Моя программа гласит:

USE IFPORT 

    stringSYSTEM = INQUIRE_SYSTEM() 

    if (TRIM(ADJUSTL(stringSYSTEM).eq.linux)) THEN ! linux systems 
     I = SYSTEM("mv final.out restart.dat") 
     If (I == -1) then 
     errnum = ierrno() 
     print *, 'Error ', errnum 
     end if 
    else !dos systems 
     I = SYSTEM("rename final.out restart.dat") 
     If (I == -1) then 
     errnum = ierrno() 
     print *, 'Error ', errnum 
    end if 

большое спасибо за любую помощь. A.

Answer 1

Один из подходов - проверить макросы препроцессора. Создайте список в зависимости от того, какие ОС вы поддерживаете. См. How do I check OS with a preprocessor directive?.

Многие компиляторы Fortran будут запускать препроцессор, когда тип файла имеет верхний регистр: F90. Или есть опция компилятора. Пример кода:

#ifdef __GFORTRAN__ 
    write (*, '("gfortran")') 
#endif 

Зачем вам нужно знать ОС для программы Fortran?