编辑代码

program main
    !integer :: i
    real(8) :: j,q
	!integer, allocatable :: W(:,:)
    !allocate (W(0:15,0:1))
    q=0.4
    j=0.5d0*acos(sinh(2.d0*q))
    !do i=0,15
    !    W(i,0)=i*1
    !    W(i,1)=i*2
    !enddo
    !j=cos(pi)
    !do i=0,15
    !print*, W(i,0),W(i,1)
    !enddo
    print*, j
end