Contoh Program Fortran

ALGORITMA

1.      Mulai

2.      Masukkan nilai :

ü  h = tinggi air (m)

ü  D =  tinggi dari dasar saluran ke titik terendah dari meracu (m)

ü  B = lebar saluran bagian hulu (m)

ü  Yg =  tinggi bukaan pintu air (m)

ü  Y0 = kedalaman air sebelum pintu air (m)

ü  Y1 = kedalaman air sebelum pintu air (m)

3.      Menghitung nilai k dengan rumus ;

k = 1.3533 + (0.004/h) + (0.0167*((8.4+(12/(D^(½))))*(((h/B)-0.09)^2)))

4.      Menampilkan nilai k

5.      Menghitung nilai Q dengan rumus ;

Q = k * (h^2.5)

6.      Menampilkan nilai Q

7.      Menghitung nilai YgY0 dengan rumus ;

YgY0 = Yg/Y0

8.      Menampilkan nilai YgY0

9.      Masukkan nilai Cc

10.  Menghitung nilai CcYg dengan rumus;

CcYg = Cc * Yg

11.  Menampilkan nilai dari masing masing variabel inputan, hasil perhitungan, serta nilai CcYg, jika Y1 < CcYg maka aliran bebas, dan jika tidak maka aliran tenggelam

FLOWCHART