Łańcuch formatu dla wyjścia zależnego od zmiennej

Question

Chciałbym mieć sformułowanie zapisu Fortran sformatowane w zależności od pewnej zmiennej. Na przykład, mógłbym napisać:

write(*,'(3f15.3,3f9.2)') x,y,z,(var(i),i=1,nvari) 

gdzie nvari = 3. Ale co, jeśli, w niektórych przypadkach, faktycznie mam 4 zmienne (tj. nvari = 4). Chciałbym napisać coś takiego:

write(*,'(3f15.3,nvari(f9.2))') x,y,z,(var(i),i=1,nvari) 

Teraz nvari może być cokolwiek, a wyjście będzie działać jak lubię. Jak mogę zrobić coś takiego?

Answer 1

Jeśli używasz Intel Fortran ma zastrzeżonych przedłużenie tego - można m.in. istniejąca zmienna w nawiasach kątowych działać jako specyfikacją:

write(*,'(3f15.3,<nvari>f9.2)') x,y,z,(var(i),i=1,nvari) 

Answer 2

Jeśli kompilator wspiera go, '(3f15.3, *(f9.2))'

Jeśli masz starszą kompilator, wystarczy użyć większej liczby niż masz przedmiotów do wyjścia, na przykład, '(3f15.3, 999(f9.2))'. Nie musisz zużywać formatu.

Dla najbardziej skomplikowanych przypadkach można napisać formatu na ciąg i użyć jej jako format:

write (string, '("(3f15.3, ", I4, "(f9.2))")') nvari 
write (*, string) x,y,z, (array(i), i=1,nvari) 

ze zrozumieniem formatach, w tym w formacie rewersji, stosowanie formatów smyczkowych jest rzadko konieczne.

Answer 3

Zamiast zapisywać format bezpośrednio w instrukcji zapisu, można również użyć zmiennej znakowej.

character(len=32) :: my_fmt 
my_fmt = '(3f15.3,3f9.2)' 
write(*, my_fmt) x, y, z, (var(i), i = 1, nvari) 

Teraz możliwe jest manipulować zmienną znaków zawierać żądaną liczbę powtórzeń przed stwierdzeniem zapisu, przy użyciu tzw zapis wewnętrznego, lub zapisać do pliku wewnętrznego.

write(my_fmt, '(a, i0, a)') '(3f15.3,', nvari, 'f9.2)' 

(. Wystarczy upewnić się, deklarowana długość my_fmt jest wystarczająco długi, aby zawierać cały ciąg znaków)

Answer 4

chciałeś napisać coś takiego:

write(*,'(3f15.3,nvari(f9.2))') x, y, z, (var(i), i=1,nvari) 

W rzeczywistości nie jest to stary trik w Fortran standardu, który pozwala pominąć nvari, a więc:

write(*,'(3f15.3,(f9.2))') x, y, z, (var(i), i=1,nvari) 

lub nawet tak:

write(*,'(3f15.3,f9.2)') x, y, z, (var(i), i=1,nvari) 

Norma mówi, że ostatniego deskryptorze w formacie jest powtarzany tak często, jak jest to konieczne, aby pomieścić wszystkie zmienne na liście. To ostatni deskryptor 'mogą być umieszczone w nawiasach, tak że ostatni grupa deskryptorów jest niejawnie powtórzony, na przykład:

write(*,'(3f15.3,(2x,f9.2))') x, y, z, (var(i), i=1,nvari)