mirror of
https://github.com/safishamsi/graphify.git
synced 2026-07-13 10:57:13 +00:00
Safi
b6ffdbb8dd
- Add Fortran support (26th language): .f/.F/.f90/.F90/.f95/.F95/.f03/.F03/.f08/.F08
via tree-sitter-fortran; capital-F files preprocessed with cpp -w -P
- Add graphify export {html,obsidian,wiki,svg,graphml,neo4j} CLI subcommands
- Add graphify query/path/explain CLI subcommands
- Reduce skill.md from 63KB to 47KB by replacing Python heredocs with CLI calls
- Extend to_html() with node_limit param for auto-aggregation on large graphs
- Add integration tests for all export/query/path/explain subcommands
Co-Authored-By: Claude Sonnet 4.6 <noreply@anthropic.com>
40 lines
757 B
Fortran
40 lines
757 B
Fortran
module geometry
|
|
use constants
|
|
implicit none
|
|
|
|
real, parameter :: PI = 3.14159
|
|
|
|
contains
|
|
|
|
subroutine circle_area(radius, area)
|
|
real, intent(in) :: radius
|
|
real, intent(out) :: area
|
|
area = PI * radius * radius
|
|
end subroutine circle_area
|
|
|
|
function distance(x1, y1, x2, y2) result(d)
|
|
real, intent(in) :: x1, y1, x2, y2
|
|
real :: d
|
|
d = sqrt((x2 - x1)**2 + (y2 - y1)**2)
|
|
end function distance
|
|
|
|
subroutine print_area(radius)
|
|
real, intent(in) :: radius
|
|
real :: area
|
|
call circle_area(radius, area)
|
|
print *, "Area =", area
|
|
end subroutine print_area
|
|
|
|
end module geometry
|
|
|
|
|
|
program main
|
|
use geometry
|
|
implicit none
|
|
|
|
real :: r, a
|
|
r = 5.0
|
|
call circle_area(r, a)
|
|
print *, "Circle area:", a
|
|
end program main
|