ESV1987
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
subroutine meanval3(a,n,s)
implicit none
!MS$ ATTRIBUTES STDCALL, DLLEXPORT :: meanval3
!MS$ ATTRIBUTES ALIAS : "_meanval3" :: meanval3
!MS$ ATTRIBUTES REFERENCE :: s
!MS$ ATTRIBUTES REFERENCE :: a
!MS$ ATTRIBUTES VALUE :: n
character(50) fn
integer(4) n, i
real(8) a(0:n-1,0:n-1)
real(8) s
s=sum(a)/dble(n);
fn='file_from_dll.txt'
open(1,file=fn)
do i=0,n-1
write(1,*) a(i,0:n-1)
enddo
return
end subroutine
|
Всего записей: 56 | Зарегистр. 31-03-2007 | Отправлено: 10:39 22-02-2011 | Исправлено: ESV1987, 10:43 22-02-2011 |
|
