Elemen array statis di Fortran modern [duplikat]

Untuk kenyamanan saya ingin dapat mereferensikan elemen tabel pencarian statis yang diimplementasikan sebagai array 1d seperti ini

Item = [1,7,2,5,3](I)

Dimana I adalah indeks bilangan bulat ke array statis dalam tanda kurung siku. Saya tahu saya bisa mendeklarasikan array bernama dan menggunakannya, tapi saya ingin tahu apakah ada sintaksis yang sesuai untuk maksud di atas.


person user1383092    schedule 18.02.2020    source sumber
comment
Fuggeddaaboutit, tidak ada sintaks Fortran yang mendekati itu. Pendekatan yang Anda tahu dapat Anda gunakan adalah pendekatan yang digunakan, jangan lupa bahwa array statis dapat dinyatakan sebagai parameter. Tidak jelas bagi saya mengapa Anda ingin menggunakan 'array literal' di beberapa lokasi ketika Anda dapat mendeklarasikannya sekali dan menggunakannya berkali-kali - ini akan menjadi array ajaib.   -  person High Performance Mark    schedule 18.02.2020
comment
Terima kasih. Saya akan berhenti mencari. Ya, parameter array statis adalah apa yang akan saya lakukan. Ini (sejujurnya!) hanya untuk digunakan di satu tempat jadi saya lebih suka memiliki nilai literal di mana mereka digunakan daripada di bagian lain dari kode.   -  person user1383092    schedule 18.02.2020
comment
Pertanyaan terkait adalah tentang hasil fungsi array, tetapi konsepnya hampir sama untuk ekspresi array. Seperti yang dikatakan High Performance Mark, tidak ada sintaksis yang mendekati, jadi Anda perlu melakukan sesuatu seperti pembungkusan yang disebutkan dalam jawaban lain.   -  person francescalus    schedule 18.02.2020
comment
Saya lebih suka memiliki nilai literal di mana mereka digunakan Anda mungkin dapat memanfaatkan konstruksi block yang sangat modern untuk mendeklarasikan array yang mendekati kegunaannya hanya jika itu menarik. Atau mungkin associate.   -  person High Performance Mark    schedule 18.02.2020
comment
Terima kasih Tanda Kinerja Tinggi. Ide bagus - sayangnya kompiler saya tidak cukup modern. Saya menghargai sarannya.   -  person user1383092    schedule 18.02.2020