برنامه نمونه برای آزمایش داکسیژن  0.1
این بسته برای ایجاد یک فایل LaTex توسط داکسیژن ایجاد شده است.
 همه پرونده ها توابع
bank.f90
توضيحات اين پرونده.
1 >!این یک برنامه نمونه است
2 >! هدف آن است که داکسیژن متن کوچکی تولید کند
3 program bank
4  implicit none
5  integer(kind=4) :: rooz_res, rooz_gha,i,j
6  real(kind=8) :: sood(365), mandeh_res, mandeh_gha, zarib_sood, pool_aval, max_sood
7  pool_aval=4000000.0
8  zarib_sood=0.2
9  max_sood=0.0
10  mandeh_res = pool_aval
11 do i=1,365
12  mandeh_gha = vam_res(i)+pool_aval
13  rooz_gha=(365-i)
14  sood(i)=sood_kol(rooz_gha)
15  print* ,sood(i),i,vam_res(i)
16  if( max_sood<sood(i)) then
17  max_sood=sood(i)
18  j=i
19  endif
20 enddo
21 print*, maxval(sood),j
22 
23 contains
24 >!این یک تابع است
25 >! این تابع محاسباتی را انجام میدهد که خیلی سخته. حتی هرکول هم نمیتونه اونارو انجام بده.
26 function vam_res( rooz )
27  real*8 :: vam_res
28  integer :: rooz
29  vam_res = mandeh_res * rooz/120.0 *2.0 !result
30 end function
31 !@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@22
32 >! این تابع محاسباتی را انجام میده که هرکول که هیچ حتی رستم هم از پسش بر نمیاد.
33 function sood_kol(rooz )
34  real*8 :: sood_kol
35  integer:: rooz
36  sood_kol =mandeh_gha*rooz/365.0* zarib_sood !result
37 end function
38 end program
توليد شده در شنبه ۲۱ دسامبر ۲۰۱۳ ۰۰:۱۵:۲۲ برای برنامه نمونه برای آزمایش داکسیژن توسط doxygen 1.8.4