24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1007  |  回复: 1

anshenyu

铜虫 (小有名气)

[求助] FORTRAN怎么实现4精度

GPU上可以实现吗
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★
感谢参与,应助指数 +1
jjdg(金币+2): 感谢参与 2012-03-02 03:08:25
GPU 上实现了双精了没有?

在最新版的 gfortran 中支持直接编译(这是一个标准程序,没有用编译器扩展的),下面是一个示例:
CODE:
module mykinds
   use ISO_FORTRAN_ENV
   implicit none
   private
   public sp, dp, ep, qp
   integer, parameter :: sp = REAL_KINDS(1)
   integer, parameter :: dp = REAL_KINDS(2)
   integer, parameter :: ep = REAL_KINDS(3)
   integer, parameter :: qp = REAL_KINDS(4)
end module mykinds

program quadtest
   use mykinds
   implicit none
   real(qp), parameter :: pi = 4*atan(1.0_qp)
   
   write(*,*) sp,dp,ep,qp
   write(*,*) pi
end program quadtest

2楼2012-03-01 22:49:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 anshenyu 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 数一英一285求调剂 +7 AZMK 2026-04-03 9/450 2026-04-03 13:03 by ms629
[考研] 283求调剂 +3 jiouuu 2026-04-03 3/150 2026-04-03 12:54 by gswylq
[考研] 求调剂,一志愿郑州大学材料与化工专硕,英二数二342分,求老师收留 +11 v12abo 2026-04-02 12/600 2026-04-03 11:33 by chenqifeng666
[考研] 319求调剂 +18 太容易1018 2026-04-01 18/900 2026-04-03 11:18 by linyelide
[考研] 一志愿北京交通大学材料工程总分358 +3 cs0106 2026-04-03 3/150 2026-04-03 10:15 by jp9609
[考研] 一志愿北京工业大学,324分求调剂 +7 零八# 2026-03-28 7/350 2026-04-02 21:09 by 1104338198
[考研] 285求调剂 +8 AZMK 2026-04-02 11/550 2026-04-02 20:16 by yulian1987
[考研] 材料科学与工程调剂 +18 深V宿舍吧 2026-03-30 19/950 2026-04-02 10:28 by sanrepian
[考研] 377求调剂 +3 RASKIN 2026-04-02 3/150 2026-04-02 09:45 by zzchen2000
[考博] 26年申博 +3 staryer 2026-03-30 4/200 2026-04-01 23:21 by ai4pharm
[考研] 江苏科技大学招材料研究生 +4 Su032713. 2026-04-01 5/250 2026-04-01 22:03 by cccchenso
[考研] 085601材料工程找调剂 +20 oatmealR 2026-03-29 21/1050 2026-04-01 21:00 by lijunpoly
[考研] 0703一志愿南师大334求调剂 +4 seven7yu 2026-03-30 4/200 2026-04-01 16:10 by oooqiao
[考研] 0856调剂 +7 曲听筠 2026-03-30 7/350 2026-04-01 08:51 by JourneyLucky
[考研] 土木304求调剂 +5 顶级擦擦 2026-03-31 5/250 2026-04-01 08:15 by fdcxdystjk¥
[考研] 085601 329分调剂 +6 yzsa12 2026-03-31 6/300 2026-03-31 15:23 by yanflower7133
[考研] 一志愿浙江大学工科动力工程370,数一121,专业课135,现在能去哪里 +3 080700调剂 2026-03-30 4/200 2026-03-31 12:00 by KLMY666
[考研] 福建理工大学材料学院先进合金团队招收考研调剂学生 +3 大华金商都 2026-03-30 4/200 2026-03-31 01:04 by 方英俊602
[考研] 085701环境工程求调剂 +11 多久上课 2026-03-27 12/600 2026-03-30 21:21 by 研究僧导导
[考研] 356求调剂 +4 gysy?s?a 2026-03-28 4/200 2026-03-29 10:32 by 唐沐儿
信息提示
请填处理意见