Fortran CSVファイルを読み込んで配列に格納したい

Question

これまでpythonの勉強しかしたことがないのですが、急遽fortranでファイルを書く必要が出てきまして、現在急ピッチでコードを作成していますが、あまり時間がないのでここで質問させてください。

例えば、1列100行のデータのCSVファイルを読み込んで、その値を配列に格納して、指定した配列の位置の値を取り出せるようにしたいのですが、これを教えてもらえますでしょうか。コード作成をぶん投げるような形になってしまい申し訳ありません。とりあえずネットで調べながら見様見真似でcsvファイルを読み込んで出力するまでのコードをつくりました。あとは、出力ではなく、配列に格納するという動作を追加すればいいだけだと思うのですが、調べてもピンポイントでヒットする内容が出てきませんでした。
単純に「write(,) pressure」を付け加えるだけでも良いのでしょうか？
その後、配列の1つ目を呼び出すためには「print *,pressure(1)」では間違いでしょうか？

program readSimpleCSV
  implicit none
  integer, parameter :: n = 100
  real pressure
  integer i
  integer :: nx(100)
  open (17, file='array.csv', status='old')
  read (17, '()')       ! ヘッダ行の読み飛ばし
  do i = 1, n
    read (17, *) pressure
    print *, pressure
    write(*,*) pressure
  end do
  close (17)
end program readSimpleCSV

今csvファイルはこのようになってます。

pressure
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

Answer 1

program readSimpleCSV
implicit none
integer, parameter :: n = 100
real pressure
integer i
real :: nx(100)
open (17, file='array.csv', status='old')
read (17, '()') ! ヘッダ行の読み飛ばし
do i = 1, n
read (17, *) pressure
nx(i) = pressure !配列のi番目にcsvファイルのi番目を格納
end do
print *,nx(100) !出力したい配列要素
close (17)
end program readSimpleCSV