fork download
copy 
  1. program C14_date
  2. implicit none
  3. real,parameter::lamda=0.00012097
  4. real::age,percent,ratio
  5. read *,percent
  6. print *,'The remaining carbon14=',percent,'%.'
  7. ratio=percent/100
  8. age=(-1.0/lamda)*log(ratio)
  9. print *,age,'yeqrs.'
  10. end program
Success #stdin #stdout 0.01s 5312KB
comments (?)
stdin
copy 
50
stdout
copy 
 The remaining carbon14=   50.0000000     %.
   5729.91016     yeqrs.
https://ideone.com/hBMY54
language:
Fortran (gfortran 8.3)
created:
18 hours ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!