2008 Fortran , 3 Fortran
Microsoft_Fortran_PowerStation 4.0,
Fortran 77 ,
Fortran 77
Compaq Visual Fortran 6.6c 3
IMSL ,,
32 Bit XP
32 Bit win7 64 Bit
win7 2012 32 Bit
win7 Intel Fortran Compiler XE 13.1+IMSL 7.0
5 2018 IMSL
11-nov-2017
Intel Fortran
Compiler XE 13.1 Microsoft Visual Studio
Intel Fortran Compiler XE 13.1 3 G
Absoft Pro
Fortran 2014 1
Absoft Pro Fortran 2014 32 Bit Xp 32 /64 Bit win7
Absoft.Pro.Fortran.v14.0.4.rar , 379MB,
http://www.0daydown.com/08/219624.html
WinRAR
Step1: AbsoftPro1403Inst.exe
Pro Fortran 2014 Absoft Pro Fortran :
Step2:
821456-45CT-TTR5-VTVT-TPDT-5
Step3: Additional Libraries
Step4: IMSL 7 Libraries ,821456-834T-TTR5-VT8T-TVBT-5
Step3: License Manager ( 1 , Pro Fortran )
(,)
( C:\Absoft14.0) license.dat ,,
SERVER: 127.0.0.1 ,,
Absoft Pro Fortran 2014
Step1: AbsoftTools
Step2: Project , New Project
Step3: General Project Name
(), Target Filename ,Project Directory
,, 3 (
)
Step4: Libraries/Tools IMSL Fortran Numerical Libraries , OK
Step5: Target , Target Type AWE Application, OK
Step6: ,,New File In ProjectF95 File
, File name: () Save
Step6: Fortran ( IMSL Bessel )
program main11
use imsl_libraries
implicit none
real(kind=8) t,temp1,temp2,temp3,temp4
t=1.0D0
temp1=D_BSJ0(t) ! Bessel function of order zero
temp2=D_BSY0(t)
temp3=D_BSJ1(t) ! Bessel function of order one
temp4=D_BSY1(t)
write(*,*) temp1,temp2,temp3,temp4
stop
end program
! Neumann function of order one
! Neumann function of order zero
(Save),(),(),
,
IMSL
1. IMSL
USE ,
LSARG, USE LSARG
_int ,_int ,, IMSL
USE ,, use imsl_libraries
,,,
,,
.
2. daima.f95
yang.atools
program main11
USE LSARG_INT
USE LSLRG_INT
implicit none
real(kind=8) A(2,2),B(2),X(2)
DATA A /1,2,2,1/
DATA B /3,4/
!call LSARG(A,B,X) ! A*X=B
call LSLRG(A,B,X) ! A*X=B
write(*,*) X
stop
end program
! Bessel function of the 1st kind,order 0
! Bessel function of the 2st kind, order 0
! Bessel function of the 1st kind, order 1
! Bessel function of the 2st kind, order 1
1,2
program main
implicit none
real(kind=8) t,temp1,temp2,temp3,temp4
t=1.0D0
temp1=bessel_j0(t)
temp2=bessel_y0(t)
temp3=bessel_j1(t)
temp4=bessel_y1(t)
write(*,*) temp1,temp2,temp3,temp4
stop
end program
--------------------------------------------------
Absoft Pro Fortran 2014
--------------------------------------------------
program main11
use imsl_libraries
implicit none
real(kind=8) t,temp1,temp2,temp3,temp4
t=1.0D0
temp1=D_BSJ0(t) ! Bessel function of order zero
temp2=D_BSY0(t)
temp3=D_BSJ1(t) ! Bessel function of order one
temp4=D_BSY1(t)
write(*,*) temp1,temp2,temp3,temp4
stop
end program
--------------------------------------------------
Absoft Pro Fortran 2014
--------------------------------------------------
program main22
use imsl_libraries
implicit none
real(kind=8) t,temp1,temp2,temp3,temp4
t=1.0D0
temp1=D_BSI0(t)
temp2=D_BSK0(t)
temp3=D_BSI1(t)
temp4=D_BSK1(t)
write(*,*) temp1,temp2,temp3,temp4
stop
end program
--------------------------------------------------
Absoft Pro Fortran 2014
--------------------------------------------------
! Neumann function of order zero
! Neumann function of order one
! modified Bessel function of the first kind of order zero.
! modified Bessel function of the second kind of order zero
! modified Bessel function of the first kind of order one.
! modified Bessel function of the second kind of order one