program subroutineExample
calc(3,4,5)
end program subroutineExample

subroutine calc(int a,int b,int c)
int::total
total=a*b*c
print*,total
end