This is our program
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| real(kind=fp), | parameter | :: | dt | = | 1.0 | |
| real(kind=fp), | parameter | :: | dx | = | 5.0 | |
| real(kind=fp), | parameter | :: | v | = | 1.0 | |
| real(kind=fp), | parameter | :: | x | = | 80. | |
| real(kind=fp), | parameter | :: | t | = | (x/v)*2.0 | |
| integer, | parameter | :: | nx | = | int(x/dx)+2 | |
| real(kind=fp), | dimension(nx) | :: | u | |||
| real(kind=fp), | dimension(nx) | :: | c | |||
| real(kind=fp), | dimension(nx) | :: | dc | |||
| real(kind=fp), | dimension(nx) | :: | ds | |||
| integer | :: | i | ||||
| integer | :: | nt |