mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-16 00:28:23 +01:00
9ccd968af4
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@4358 1feff8c3-07ed-0310-ac33-dd36852eb9cd
24 lines
480 B
Fortran
24 lines
480 B
Fortran
! main.f90
|
|
!
|
|
! FUNCTIONS:
|
|
! main - Entry point of console application.
|
|
!
|
|
|
|
!****************************************************************************
|
|
!
|
|
! PROGRAM: test_f90
|
|
!
|
|
! PURPOSE: Entry point for the console application.
|
|
!
|
|
!****************************************************************************
|
|
|
|
program test_f90
|
|
|
|
implicit none
|
|
|
|
integer(KIND=4) F_MAIN
|
|
integer(KIND=4) I
|
|
|
|
I = F_MAIN()
|
|
|
|
end program test_f90 |