r_imag.c\libF77\libf2c - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/libf2c/libF77/r_imag.c

blob: 42042a9cb8e456167d10372cb4f9f0af249dfdae (plain)

#include "f2c.h"

double r_imag(complex *z)
{
return(z->i);
}