Create data and plot for logo
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine makeLogo
!! Create data and plot for logo
real(wp),dimension(:),allocatable::x,y1,y2,y3
x = linspace(0.0_wp,1.0_wp,100)
y1 = x**2-1.0_wp
y2 = 2.0_wp*x-1.0_wp
y3 = x
y3 = cos(2.0_wp*PI*x)
call figure()
call subplot(1,1,1)
call xylim(mixval(x),mixval([y1,y2,y3])*1.1_wp)
call plot(x,y1,lineColor='b',lineWidth=10.0_wp)
call plot(x,y2,lineColor='r',lineWidth=10.0_wp)
call plot(x,y3,lineColor='c',lineWidth=10.0_wp)
call ticks(lineWidth=5.0_wp)
call labels('','','')
end subroutine makeLogo